perm filename COMPLR.FIX[LSP,LSP] blob sn#193625 filedate 1975-12-20 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXPR ISSUBR(X) GET(X,'SUBR)
C00003 ENDMK
CāŠ—;
EXPR ISSUBR(X); GET(X,'SUBR);

EXPR OUTCALL(NUM,FUN);
     IF ISSUBR(FUN) 
	THEN OUTINST(<'PUSHJ,'P,<'SUBR,FUN>>)
        ELSE IF UPPERFLG THEN OUTINST(<'XCT,0,<'CALL,NUM,<'E,FUN>>>)
        ELSE OUTINST(<'CALL,NUM,<'E,FUN>>);

EXPR OUTJCALL(NUM,FUN);
     IF ISSUBR(FUN) 
	THEN OUTINST(<'JRST,0,<'SUBR,FUN>>)
        ELSE IF UPPERFLG THEN OUTINST(<'XCT,0,<'JCALL,NUM,<'E,FUN>>>)
        ELSE OUTINST(<'JCALL,NUM,<'E,FUN>>);